www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/manage/Config_WebSite.asp
<!--#include file="conn.asp"-->
<!--#include file="chkuser.asp"-->
<%
function getfolders(folderpath_template)
set objFS = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFS.GetFolder(server.MapPath(folderpath_template))
for each folder in objFolder.SubFolders
str = folder.name
dirstr = str & ","&dirstr
next
getfolders=dirstr
set objFolder = nothing
set objFS = nothing
end function
Sub add
z_idea_1=Replace(Replace(request.Form("idea_1"),"'",""),"""","")
z_idea_2=Replace(Replace(request.Form("idea_2"),"'",""),"""","")
z_idea_3=Replace(Replace(request.Form("idea_3"),"'",""),"""","")
z_idea_4=Replace(Replace(request.Form("idea_4"),"'",""),"""","")
z_idea_5=Replace(Replace(request.Form("idea_5"),"'",""),"""","")
z_idea_6=Replace(Replace(request.Form("idea_6"),"'",""),"""","")
z_idea_7=Replace(Replace(request.Form("idea_7"),"'",""),"""","")
z_idea_8=Replace(Replace(request.Form("idea_8"),"'",""),"""","")
z_idea_9=Replace(Replace(request.Form("idea_9"),"'",""),"""","")
z_idea_10=Replace(Replace(request.Form("idea_10"),"'",""),"""","")
z_idea_11=Replace(Replace(request.Form("idea_11"),"'",""),"""","")
z_idea_12=Replace(Replace(request.Form("idea_12"),"'",""),"""","")
z_idea_13=Replace(Replace(request.Form("idea_13"),"'",""),"""","")
z_idea_14=Replace(Replace(request.Form("idea_14"),"'",""),"""","")
z_idea_15=Replace(Replace(request.Form("idea_15"),"'",""),"""","")
z_idea_16=Replace(Replace(request.Form("idea_16"),"'",""),"""","")
z_idea_17=Replace(Replace(request.Form("idea_17"),"'",""),"""","")
z_idea_18=Replace(Replace(request.Form("idea_18"),"'",""),"""","")
z_idea_19=Replace(Replace(request.Form("idea_19"),"'",""),"""","")
z_idea_20=Replace(Replace(request.Form("idea_20"),"'",""),"""","")
idea_str="<":idea_str=idea_str&"%"&chr(13)&"idea_1="""&z_idea_1&""""&chr(13)&"idea_2="""&z_idea_2&""""&chr(13)&"idea_3="""&z_idea_3&""""&chr(13)&"idea_4="""&z_idea_4&""""&chr(13)&"idea_5="""&z_idea_5&""""&chr(13)&"idea_6="""&z_idea_6&""""&chr(13)&"idea_7="""&z_idea_7&""""&chr(13)&"idea_8="""&z_idea_8&""""&chr(13)&"idea_9="""&z_idea_9&""""&chr(13)&"idea_10="""&z_idea_10&""""&chr(13)&"idea_11="""&z_idea_11&""""&chr(13)&"idea_12="""&z_idea_12&""""&chr(13)&"idea_13="""&z_idea_13&""""&chr(13)&"idea_14="""&z_idea_14&""""&chr(13)&"idea_15="""&z_idea_15&""""&chr(13)&"idea_16="""&z_idea_16&""""&chr(13)&"idea_17="""&z_idea_17&""""&chr(13)&"idea_18="""&z_idea_18&""""&chr(13)&"idea_19="""&z_idea_19&""""&chr(13)&"idea_20="""&z_idea_20&""""&chr(13)&"%":idea_str=idea_str&">"
call fldrename("../template/default/"&idea_4,"../template/default/"&z_idea_4)
createhtml"../inc/config.asp",idea_str
response.redirect"?"
End Sub
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="copyright" content="Copyright 2008 dananshan.com" />
<meta name="Author" content="闪电文章管理系统技术支持---www.dananshan.com" />
<meta name="Keywords" content="闪电文章管理系统文章管理系统" />
<meta name="Description" content="闪电文章管理系统文章管理系统" />
<title>网站配置</title>
<link href="style.css" rel="stylesheet" type="text/css" />
<script src="../js/check.js" type="text/javascript"></script>
</head>
<%
if Instr(session("AdminPower"),"|01,")=0 then
response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
response.end
else
action=Request.QueryString ("action")
Select Case Lcase(action)
Case "add"
Call add
Case Else
Call main
End Select
end if
Sub main
If idea_5=0 Then:idea_5_1=" selected":Else:idea_5_2=" selected":End If
If idea_20=0 Then:idea_20_1=" selected":Else:idea_20_2=" selected":End If
%>
<body onLoad="changeView(<%=idea_5%>)">
<form method="post" action="?action=add">
<div id="frame_Toolbar" class="toolbarBg">
<a href="javascript:self.history.back();" class="icoBtn_ct"><span class="btnIco btnBack"></span><span class="btnTxt">返回</span></a>
<a href="javascript:self.location.reload();" class="icoBtn_ct"><span class="btnIco btnReload"></span><span class="btnTxt">刷新</span></a>
<span class="split ftSplit" ></span>
<div id="guide" class="light_orange">请填写网站配置信息！ </div>
</div>
<table class="cTable_2 table">
<tr class="cTitle toolbarBg">
<td width="15%"><div>网站配置</div></td>
<td width="85%"></td>
</tr>
<tr>
<td class="tRight"><span class="forumrow">网站名称：</span></td>
<td><input name="idea_1" type="text" id="idea_1" size="40" value="<%=idea_1%>" onBlur="check_idea1(this.value);">
<span id="span_1">如闪电文章管理系统企业管理系统</span></td>
</tr>
<tr>
<td class="tRight">网站地址：</td>
<td><input name="idea_2" type="text" id="idea_2" size="40" value="<%=idea_2%>" onBlur="check_idea2(this.value);">
<span id="span_2">如www.dananshan.com</span></td>
</tr>
<tr>
<td class="tRight">留言审核：</td>
<td><select name="idea_20" id="idea_20">
<option value="0" <%=idea_20_1%>>关闭</option>
<option value="1" <%=idea_20_2%>>开启</option>
</select>
</td>
</tr>
<tr>
<td class="tRight">模板选择：</td>
<td><select name="idea_3" id="idea_3"><%for i=0 to ubound(split(getfolders("../template/"),","))-1%><option value="<%=split(getfolders("../template"),",")(i)%>"<%if trim(idea_3)=trim(split(getfolders("../template"),",")(i)) then%> selected<%end if%>><%=split(getfolders("../template"),",")(i)%></option><%next%></select>
</td>
</tr>
<tr>
<td class="tRight">模板路径：</td>
<td><input name="idea_4" type="text" id="idea_4" size="40" value="<%=idea_4%>" onBlur="check_idea4(this.value);">
<span id="span_4">相对于模板选择路径(一般为html)</span></td>
</tr>
<tr>
<td class="tRight"><span class="forumrow">数据库选择：</span></td>
<td><select name="idea_5" id="idea_5" onChange="changeView(idea_5.selectedIndex)">
<option value="0" <%=idea_5_1%>>Access</option>
<option value="1" <%=idea_5_2%>>SQL</option>
</select> </td>
</tr>
<tr>
<td id="td_id" colspan="2" style="margin:0;padding:0;border:0;height:10px;">
<div id="div_sql" style="display:block;height:100px;">
<table width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td width="15%" class="tRight"><span class="forumrow">SQL服务器名称：</span></td>
<td width="85%"><input name="idea_6" type="text" id="idea_6" size="40" value="<%=idea_6%>" onBlur="check_idea6(this.value);">
<span id="span_6">SQL服务器名称或IP地址</span></td>
</tr>
<tr>
<td class="tRight"><span class="forumrow">SQL数据库名称：</span></td>
<td><input name="idea_7" type="text" id="idea_7" size="40" value="<%=idea_7%>" onBlur="check_idea7(this.value);">
<span id="span_7"></span></td>
</tr>
<tr>
<td class="tRight"><span class="forumrow">SQL数据库帐号：</span></td>
<td><input name="idea_8" type="text" id="idea_8" size="40" value="<%=idea_8%>" onBlur="check_idea8(this.value);">
<span id="span_8"></span></td>
</tr>
<tr>
<td class="tRight"><span class="forumrow">SQL数据库密码：</span></td>
<td><input name="idea_9" type="text" id="idea_9" size="40" value="<%=idea_9%>" onBlur="check_idea9(this.value);">
<span id="span_9"></span></td>
</tr>
</table>
</div>
<div id="div_access" style="display:none;height:auto;overflow:hidden;zoom:1;">
<table width="100%" cellpadding="0" cellspacing="0" border="0">
<tr>
<td width="15%" class="tRight"><span class="forumrow">ACCESS数据库路径：</span></td>
<td width="85%"><input name="idea_10" type="text" id="idea_10" value="<%=idea_10%>" size="40" onBlur="check_idea10(this.value);">
<span id="span_10">ACCESS数据库相对路径，包括前面的“/”</span></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td class="tRight">公司名称：</td>
<td><input name="idea_11" type="text" id="idea_11" size="40" value="<%=idea_11%>" onBlur="check_idea11(this.value);">
<span id="span_11">公司名称网页底部使用</span></td>
</tr>
<tr>
<td class="tRight">公司地址：</td>
<td><input name="idea_12" type="text" id="idea_12" size="40" value="<%=idea_12%>" onBlur="check_idea12(this.value);">
<span id="span_12">公司地址网页底部使用</span></td>
</tr>
<tr>
<td class="tRight">公司邮编：</td>
<td><input name="idea_13" type="text" id="idea_13" size="40" value="<%=idea_13%>" onBlur="check_idea13(this.value);">
<span id="span_13">公司邮编方便联系</span></td>
</tr>
<tr>
<td class="tRight">公司电话：</td>
<td><input name="idea_14" type="text" id="idea_14" size="40" value="<%=idea_14%>" onBlur="check_idea14(this.value);">
<span id="span_14">公司电话方便联系</span></td>
</tr>
<tr>
<td class="tRight">公司邮箱：</td>
<td><input name="idea_15" type="text" id="idea_15" size="40" value="<%=idea_15%>" onBlur="check_idea15(this.value);">
<span id="span_15">公司邮箱网页底部使用</span></td>
</tr>
<tr>
<td class="tRight">网站ICP信息：</td>
<td><input name="idea_16" type="text" id="idea_16" size="40" value="<%=idea_16%>" onBlur="check_idea16(this.value);">
<span id="span_16">网站备案信息</span></td>
</tr>
<tr>
<td class="tRight">网站统计代码：</td>
<td><input name="idea_17" type="text" id="idea_17" value="<%=idea_17%>" size="40">
<span id="span_17">网站流量统计js代码</span></td>
</tr>
<tr>
<td valign="top" class="tRight">网站关键字：</td>
<td><textarea name="idea_18" cols="50" rows="10" id="idea_18"><%=idea_18%></textarea>
<span id="span_18">关键字设置有利于网站的搜索</span></td>
</tr>
<tr>
<td valign="top" class="tRight">网站描述：</td>
<td><textarea name="idea_19" cols="50" rows="10" id="idea_19"><%=idea_19%></textarea>
<span id="span_19">关键字设置有利于网站的搜索</span></td>
</tr>
</table>
<div id="cEndToolbar" class="toolbarBg">
<div class="caButCase">
<input type="submit" id="Btn_OK" name="Btn_OK" value="确定更新" class="button">
</div>
</div>
</form>
</body>
<% end Sub %>
</html>
<script language="javascript">
function changeView(i)
{
var div11=document.getElementById("div_sql")
var div22=document.getElementById("div_access")
if (i)
{
div11.style.display="block";
div22.style.display="none";
}
else
{
div11.style.display="none";
div22.style.display="block";
}
}
</script>